  (3.089.023-01)     
   .    
         
 1000, 500  250     /
 "", ""      - 
 (   - 250 /).

  60,  ,    
.

 X    ,  
 :

    X = N + 8

 N -  ,    .
14 -   58055 ( ),
    , 15 -  
58055,   - -.

					 60
			    
			
					
							
--------------------------------------------------------------------
CN00-CNFF	 
		 
COX1		 
		  (14,  B)
C0X2		 			  
		   		  
		(14,  C)				(14,  C)
C0X3							   14,
							"/"
							 (14,  C)
C0X4		   
		(15,  A)
C0X5							  
							 (15,  B)

C0X6		 
		 / 
		 
C0X7							  
							15, 
							  ,
							     C 15
C0X8							 
							( )
C0X9							   (
							)
C0XA							 
							( )

      14
     "O/O"    $92
  C0X3,  15 -     "I/I"  
 $BD   C0X7.     
      .

       B  C
  14 (    ,
   ).

 B -    (   C0X1):

B0, B1 -  " 2"
 0   0 -  5323.01 (1000 )
 0   1 - 500 
 1   0 - 250 
 1   1 -   

B2, B3 -  " 1"
 0   0 -  5323.01 (1000 )
 0   1 - 500 
 1   0 - 250 
 1   1 -   

B4     -  "INDEX/SECTOR" (0)
	 (    );
B5     -  "WRITE PROTECT" (0)
	 (  );
B6     -  "TRACK 0" (0)
	 ( 0);
B7     -  "READY" (0)
	 ( )

 C -     (   C0X2  
     C0X3 -   ):

C0 -    (1);
C1 -  ;
C2 -     (0 - ,   0; 1 - );
C3 -  1/2 (0 - 1, 1 - 2);
C4 -    (0 - , 1 - );
C5 -    (1);
C6 -   "" (1);
C7 -    (1).
     (  ).

     ,   1.

   C   15 
  (    ,  
  ):

C2 (   C0X7) -      
			         C7 (1);
C4 (   C0X7) -     
			        C7 (1);
C6 (   C0X6) -  , 
			           (0 -
			        );
C7 (   C0X6) -   / (1).

  ,     C
  14, 15:    ( 0)
  ,    (0-7),   2,
  C0X3 (14)  C0X7 (15);    ( 1)
     ,   , 
 2,  .     
,     .   
,   X   
 ($10, $20, ... , $60),     
 (1, 2, ... , 6),   $10.

1)     :
   lda #$92
   sta $c083,x
   lda #$bd
   sta $c087,x

2)   (1, 2),  .
   ,    
    ()  0  1
 1  2:
   lda #3
   rol
   sta $c083,x -  
   lda #$0f
   sta $c083,x -   

3)   
l1:ldy $c081,x
   bmi l1

4)     
,      
  0    (  0)   1  
:
   lda #2
   rol
   sta $c083,x

5)     ( ,  
 ):
   sta $c089,x

       
   ,    
.  ,       
/.    5323.01    
    6  (),   
 -   15 .

6)        
 0:
l2:lda $c081,x
   asl
   bpl l3
   jsr delay
   jmp l2
l3:.... -  

7)    ( )
   ( ..  5323.01) (c=0 (c-
 ) -  0,   , =1 - 
1,   ):
   lda #4
   rol
   sta $c083,x

8)    ""
         C
15:
   lda #9
   sta $c087,x

9)      -  :
   sta $c08a,x

10)   :
l4:lda $c086,x
   asl
   bmi l4
         .
 ,      
(. . 16),       
 ,   .

11)    :
l5:lda $c086,x
   bpl l5

12)      :
   lda $c084,x
         
         
 .  ($5A),     ,  
 ,      (  )
 /.

13) /   (C=1 - , C=0 -
):
   lda #5
   rol
   sta $c083,x
    "/"  (C=0 - , C=1 -
):
   lda #0
   rol
   sta $c083,x

14)   ""     
      C (C7) 15.
   lda #$0d
   sta $c083,x -   ""
   lda #5
   sta $c087,x -   
          
     .

15)    (     ):
l6:ldy $c086,x
   bpl l6 - ,   
   sta $c085,x -  , 

16)  .
    (2  - $A4  $FF)   
   (,     ,  
 )  ,        
   .      ,  
 ($FF)     2 
   $A4.      
 .
l6:ldy $c086,x
   bpl l6
   lda #$A4
   sta $c085,x
l7:ldy $c086,x
   bpl l7
   lda #$ff
   sta $c085,x
   sta $c088,x

17)   "  "
   lda $c081,x
   and #$20
   beq l7
   ... -    
l7:... -    .

18)  :
   lda #$0e
   sta $c083,x

19)    14.
        ""   
/:
   lda #$98
   sta $c083,x
   
   ""    5323.01 
    21 .

       .

        ,
 (2  - $95  $6a),    (VOLUME),  
 (TRACK),      (1  - $5a).  
   ,     
   ,      
   .

        ,
 (2  - $6a  $95), 256   ,  
   (1  - $5a).

       256 
.

       .

   ""    
    5323.01 ,  840 .
